home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / wampum.arc / INIT.PRG < prev    next >
Encoding:
Text File  |  1986-04-25  |  896 b   |  40 lines
  1. * INIT.PRG initializes the DATA BASE system.
  2. SET TALK OFF
  3. SET BELL OFF
  4. CLEAR ALL
  5. CLEAR
  6. RESTORE FROM CONFIG
  7. *IF LEN(TRIM(FILESPEC))=0
  8. * FILESPEC="USE DEMO INDEX USER                           "
  9. * HEADING=SPACE(14)+"Microcomputer Data Base <> Main Menu "
  10. * CRITERIA=SPACE(40)
  11. * USERRPT1="USER REPORT #1 "
  12. * USERRPT2="USER REPORT #2 "
  13. * USERRPT3="USER REPORT #3 "
  14. * REPORT1="USERRPT1"
  15. * REPORT2="USERRPT1"
  16. * REPORT3="USERRPT1"
  17. * SAVE TO CONFIG
  18. * HEADING=HEADING+"(Version "+VERSION+")"
  19. * MENU="DEMOMENU"
  20. *ENDIF
  21. ? "DBASE INITIALIZED."
  22. SELECT 1
  23. &FILESPEC
  24. ? "DATA BASE OPENED SUCCESSFULLY."
  25. SET PROC TO MENU
  26. DO MAIN
  27. CLEAR
  28. CLOSE PROC
  29. CLOSE FORMAT
  30. CLOSE DATABASES
  31. CLEAR ALL
  32. SET TALK ON
  33. ? "DATA BASE CLOSED SUCCESSFULLY."
  34. ? "TYPE QUIT AND PRESS <RETURN> TO EXIT."
  35. RETURN
  36. LOSE DATABASES
  37. CLEAR ALL
  38. SET TALK ON
  39. ? "DATA BASE CLOSED SUCCESSFULLY."
  40. ? "TYPE QUIT AND PRESS